jjVitMfl 

Data<^y 


pgiu ijIiJI CjULuJI flgil jo ajaaJI so Visual Basic . Net /iaJ JoLszli 
CjULuJI am jg£i aiig RAM pgiio^ll 2ij£la j^ji Lugo Lajjpjg LalhaU paalaijjJI 
l-jgj CjULuJI am so JoUuUg « ^oUjiJLj siinbJI CiloaisliJIg jiilgUI jo /iaJU 
. /lijpj pILi £aJI jLull suuib uud jjao £gig jjao juuU 2ij£laJI l*ifrn-> 


Data Typos uliLuJI ^Igji 


j: Numeric Data Type qULJI -1 

: Integral Numeric Types < 00*00 cutoSjobU) - \ 
Byte - Short - Integer - Long sigiui Jio 
0 : 255 jo Siji.n /uaat /ioiu aaU : Byte jLuJI 
jLj £gi ,J£J jl < jjgiio^l aj£b CjjU 4 jp paj : Integer jLuJI 

pgjio^JI jjflo jp 

uuglaJI psij - i_ii£JI aat - ^pulll alui a at - t i llhl l jjpj : cJiolf 

. /Lapin iiiohj pp Lnl£ 


( /uynisi\/ ajjju^ji ) : Non Integral Numeric Typecoosuo *Jb ,caoibulilu -u 


Single - Double - Decimal sigiiJi Jjo 

Hman jiaJI CjULuJI jo bijpg - i—JLhaJI /iaja - i _■ llhll j_aj - Jl^JI jg gJUg : cJul 

. Qi V 4 <j ^ ^ : <UU 4 >» I 0 OO 


(Character Data Types > 

( haci aalg i_dp jjfu Char 


I qULJI -2 

♦♦ ♦ 

String ) 


> Ar jl j_SLc ^ *. 41 >» l uj : String < Jl 4 hj ^ I oi 


O 


♦ 4 i i 17 J( jJLo ul ilgf I ^ 1 f f ^j-4* y j£>LSjI 

. i illhII jlgk gl AujjaoJI pull gl i_ULtaJI pail jpj jl j£oj : cdSoi 

i 




: ( Miscellaneous Data Types > qULJI -3 

: Jjfl /Lupil gl /ugiijJI CiLiLuJI »g;i.r>'i Coj aj^Li U i^ill CiLiLuJI llUj |^a 
- /kLuillg CiiigJI gl ^ILioJI pjjLi Jjd Ciiigg jjjli jjpU Date 

i i■ ii ijg a^Li gl iJiiig Jjg False gi True/iojoJi ifiLj L«i~»io jjfiiio Boolean 

pia isi /iiai^i jpj pk jbi Object 

( /d i^niiiJIg iJ^UI :oJI ) jjsjqU /oLioJI pjiill ^g^n ga : Range is^all 


Constant *y|£*il 


aoLijjJI jj■■! dijl Iajxuu j Sqj U /luIj pjii iiili < jigiio^JI a i^d /ijg?-»o j£lgl 

. miu /igjflg £gig p±ul :ou Lsik jikUl aic 


vT 


cginllg CiginJI /kj-aig suphJI /ila^£ cUjiaJI CuSgjg-b mioUpl CulgjJI jiiaj :Jjo 

_ Const - 

Const Costant Na|n e Us Data Type = Value jikUl /iiua 

CIuLlII p_i_ul jLuJI £gi /ifljiUI 

cJiol 

Const C Name As String = " /till Jg^uj :*oV 

Const pi As Single = 22/7 

Const BirthDate As Date = #1/25/2011# 

cj»g»j0*e 

# i Jfllk jjj giogj i iti gll gl aiJuJI ^0^9 Diflik jjj giogj mupJI n&±a\\ 


Variables al 


Lnjfljii j£Jg < £gig p_oil LnJ inn Lsik jikUl ^k < jigiip^ll L p iijgiofl j^lfll 

. aflUjiJI J .!- 11 dijl jiali In *tak 

j*. j Dim Aii.; »n - 

CD 




. Initial Value i_p ■ ■ ■'■ /uibiiii /iop jjjuoJI jl u^p.ig 

. ispi /iLijo l^i gl siir. jikUl c\u\ jplioU /iflki jzLiioiij jfnflj — 

^nlg DIM jol JloslmU jpiio jo jj6I (jc jikUl j£flj 
. jjgiio^JI iijfib pl^filiiil iiijj ^f l .hi j;qipll j£ jikUl : 


Dim Variable Name As Data Type = 

_ JJ^iflll JMJl _ uJLu-ll jfli 

Dim R As Integer 
Dim F Name As String = "Kenzy 1 


: jikUl /iiuia 

= Initial Value ( fijuibi) 


siiihliUI 


JLifl 


: ^oLijill Jab i'lljjq ipll /iip ■ ■ ii ^dgii — 


( ) Under Score /ioik gl A ... 


( ■;<*<-< + <.) Jjo iiinli 



W ■ . 

puipj J ig ipll p_LJjl IaU jl L-JDJ -1 


c 

gl naLuo gl jgoj lM p*uUI isgku Ul -Z 


Lsijjrg Dim, As, Single, integer ) jio zijgzooJi Ciipi^Ji jo pmUi jg£j u -3 

. ( ) /ipikg pLdjIg uigp i^k isgiaj jl j£oj "4 

. nlglnp jc j ^'ipll pj .ul jisj ji jink; " 5 


( jjbui) Assignment lpjicoj 


j;p i p gl CluLtl /iop jjpj gl ging j-innVilli ^ioUj 
( /UinbJI gl p^uUI = /iopJI ) — jnj.nVi /Hpik pauj jpjb jo /iloa j£ zijli£ 
minb gl CijIj gl jj£io = ( jiisj jo /ifljii / miob / jpio jo Aiop / ibpo /iflp ) 


jinn SI II Joboj = /Hpik L p.il'ig 


© 


jijftin di2it bi^ii - j^jujsa jis 







Dim N As Integer 
N = 5 


/KM a 


. /d ibpo noAa j-»nr»vi pj Integer £gi jo N j^i p jc jikui pj 


Dim N1 As Integer maki jo 'A&m 

Dim N2 As Integer 
N1 = 5 
N2 = N1 

ipjiBzu pj N1 j-isjoU ibpo /ifljfl lPJioiu pj N1 , N2 jjjjsjti jc jikUl pj 

N2 j;q ip ll N1 j^'ip ll /io-iii 


Dim N As Single = 7 □ 


N = N/ 3 

i^Lua jjiju jo 


lHJ /KM* 



pj < n\ zbpo rffljii L P.i-rv^ i g jjiifl jc. jikiJI pi 


Dim Name As String 


/uinb jo /ifljfl 


Name = TextBoxl . Text 

/LtiobJi jo /KMoJi Lpjiofu pj String £gdi jo Name jj£io j£ jikiJI pii 

. TextBoxl p'Wii i zibu Text 


/ihgilpl 


CiljflJI jo ifil i ilj ^ipN pjii jDJioiu za^Lc) j£oj — 


/iOJflJIg < is^^sdl jj 

. Boolean 


© 


Lslioil jn.n /ifliiUI ibU /lib jjsiioiJ /iflki rlhf ! p^£. /iJb - 
j;o i pll False wiaWg . i^pJI j j^i pH /kjb /Luip /iLuiLui 

0 jijftin di2it kii^n - j3j#*sit jjx 




Private Sub Button 1 . Click ( 

Rem CjijjfijaJi j £ jikui 


ir 1 Forml 


Dim A As String 
Dim B As Date 
Dim C As Boolean 
Dim D As Integer 


08 08/2016 

False 

3 









s> j—iV' 


Rem CjijjfijQiJ pj 2 jDJioiu 

A = TextBoxl . Text 
B = TextBox2 . Text 

If Radio Buttonl . Checked = True Then 
D = True 
Else 

D = False 
End If 

D = TextBox3 . Text 

ClljJfiJOJI plvYi.nl 

Labell. Text = A & Vb 




B & VbCrlf & C & VbCrlf & D 


< juuiJI as jjpll String £giJI jo A J^ipll < CjIjjjuo /itgoafl j l jikUl pj - 
Boolean £giJI jo C jjiuaJIg as jjpil Date £giJI jo B jjsjflJIg 
zijjjjUl aljjil aa£ as jjpIiJ Integer £giJI jo D jjaliollg < £gill as jjpiiJ 
Text /uLi£JI gjjo Cilg^l Jab 1 . i&s loi A , B , D i' iIj joiflll pia jajinaJ pj - 
/iiinlaJIg Radio Button dbUI pKYi.nli C jjsjoU Alo-iii |_pjjoiu pjg BOX 
l js Lsojj±i pjxoi ) If aIqi pKYi.ni; IajLloI pjg jLiiLbUi \ p~>ii Checked 

( Jllll JiOflJI 


ag^JI Jab i"ilq;lo'illg CiLiaailoJI asXs^x paalmJ 


(' > $1 Rem **£11 



. pajlioll LnJ Climb Ug 
iJlaJI jSgpill jjjiij : Me /iol£ 














































iJiSLuiiJ Jjgb ^g£JI jl~> .n jl£ hi jh .n ju jl£| /uLi£JJ p^iilajj : ( ) /igllaJI 


l<n.ri<»jj /LrnpJI CjIjjsjoJI hjj |^i p^l.iu 

Dim K As String 
K = "Good" & "Luck" 


■ ■ a ■■ 

. /udjii 




Jiifl 


K = "GoodLuck" 1^1 K jjaligJI /iftiii jgiu 


jh.ii cLiiij i p^zlLllij 


vbCrlf 


Labell . Text = "Good" &vbCrlf&"Luck" jLig 

Good iJLiJI iJ^jidU jg£j Label 1 iahl ijiih jmhj Lg j[ a 
Luck 


CiilgjJIg Lj|jjfi!ioJI jikj iglhu 


iijjNI h j-ipg zijjhJI /HI -iip ljLioJ ^gLijj 


tjiajUi ■ ° JL<u r ;uiA 2nr — ■ ■■* :^jL Laic- 

22/7 —7T 



iji zijJh shLug ljLioj jnh /ijLi£j pgoj 

jjnlfijg ButtOn2 Click Cj^oJI dpi y^h xijjhJI 


Hjij g Button 1 Click ii 
: Label2 jlgioJI iihl ijh 

Private Sub Button 1 _ Click (.) 

Dim Radius As Single 
Const Pi As Single = 22/7 
Radius = Text Boxl . Text 
Labell . Text = Pi * Radius ~ 2 


Priii 


Name 'Radius' ii not deciaredl c ( 


ByVal sender As Obj 


Rad 


Lab 

End Sub 

© 


113 


0 


s TextBoxl. Text 
Text = pi * Radius * 2 

fid /wwwwa 


S Is) a 


tyUI awe; oL a 


>kudl au£u 




o>j|jJI Lcu> 


0>jljJI <L>luUU 0 


(UtmJI 









































Button 1 Click CjaaJI dp) jlty Cnlgllg CjIjjsIoJI j l jikUl pi toili 
jgisitd (gd l(jo . Button2_Click CjaaJI dpi &\hl Lak jikUl pij pig H<id 
. iJIjJI CjaaJI dpi igUni pink jikUl plu pJ CntiJIg jjajoJI jl /uili /ULuj 
. L^J^UI JLkJ ^ mi V ^IgUlg ^l^uLUl jl - 


: llUa |jk i ilvill 


. Button2_Click CjaaJI igLbi |^i igpl ajo CuLiJIg jjsjoJI jc jikUl -1 
/i;lpf pLinj U Laakg » d ji.n'il l igglmg Ljc CiitiJIg j j^ip ll jr jikUl gjjh jr gl -2 

. CiAn 116 dpi igLbj Ak jikUl 

E Public Class Form3 

Dim Radius As Single 
Const pi As Single =22/7 



B 


Private Sub Buttonl_Click{ByVal sender As 
Radius = TextBoxl.Text 
Label2.Text = pi * Radi 



Errors 


: Syntax Error <ugd glK^| -1 

: Lsiiljd jgg Ag6JI /uLi6 Ak Cjaaj /iaUI jolgU /ioIseJI siiuinJI cUaaI ^ 

Din /iibb /iki.ibj Dim /iai6 /uLi6 pi Din X As Single 
. /d /ioia jAiiniu pA£g CiiilJi j£ jikUl pi Const X As Single 
iiip IDE 2i^rI■ ■ ■ pi mk L-iiaiJI j£ojg »«l.nielli Jjsuu r lh-S III jo ^gUI Iaiq 
. r lhn III jfl £gUI Iaai VB /iaJ j*p■ ■ U i "in . |ajj|j 6 dijl JDlgUI |J6 j±I LPpi 

: Logic Error h.xu;* nllaiil -2 

Ciljjisi /kLuo ».i; , *i) cUAg ^oLijill juLuii asu Uaa ^ULLi i^k J g-ml l Ak Ciaaj 

. LIaa JJLojj igl jahj U . Uaa iijgioj siiukuo gl /LuLha 

Label 1 . Text = Pi + Radius ^ 2 apiAii sbLuo l_iLua jQo 

* jo Uaj + /iflik Uaa 
C igLui big /dii-iiii jin Lolllio ^loLJjjJI /iajjJ jLIaI : dhbUI jo £giJI Iasi i Jl ».■l*'ill 

. 3JAid aoU^ill jg6j aoUjUl LM^iiii aiU so /bkiUI 


O 
























: Run Time Error .LaudJI cLul cUzlzJ -3 


Jfla Jjfl < alg^ill Lyfl LJk jg^Jg ^oLijiJI JjsLiij ak !*»«! .Yi'i^l pjj r lh-S III da<a 
jd Jiil gl ji^l /ifljfl /d jzuoiug Byte £giJI jo jj£io j£ jikUl zlaa j-inn-Yill 
j;oi pll agaa pjLb /ioJflJI jli \;q'i IH-S /ULuj psitfiJ ( 0 : 255 ) ?gp ■upll aall 

. Over Flow 



^yLtail QbUtli 




pjlall |JI JalaJI jo uiilgiiJJI Jab CiLdosdl iufliJ -1 

U. Ill \;gi'i -2 

. JJgl lOiQji jjoJI lJI jLoiiJI jo Aio^jxall gl l_ijioJI CiLdor. iufliJ -3 
. JJgl loiSLji jjoJI lJI jLlluJI jo pjbll gl gflaJI CiLiion iunU -4 
Logic Error /uiilaio cLbal |JI igagj /LuLiiaJI GjIjjuuJI /uti£ ^ /kail /ikljp pac - 


AJjfll 


1) 3 * 4 + ( 10 / 2 - 3) 
3*4 + (5 - 3) 
3*4 + 2 

12 + 2 = 14 

2) 4 + 2 ~ 3 / 2 
4 + 8/2 

4 + 4 = 2 

3) 12/2*6/2 
6 * 6/2 
36/2 =18 



10 mod 3 


1 gM 


o 


12 mod 4 

( JsL Jfc J j^v^ ^Vu * n ) JaIxa jA Mod 


t$ jIjpYI <A#S8 ci^lt - jSjjftSlI JJS 





J$2I JMI 

: AA11\ 4-£l&b Urtlu M 



. ~ * ^ hljljLujt 4-4j£ 

Jli-j] ^ p. 1~^~4 .._< 

5^9-3 


jkul 











^olUall 














fejo>nn 







v-_ulLaj\ 




4 *~i >, a\ 


Pictu reBox 

uoIUaj) dj^us 


: <yy2l qIjUaJI jqWI (x > <wU« $1 (V > <wUf £-a 

( ). ujbL-JI A a LL>* y J-obLJL» VB.NET <L*J>^b-1 

( ). obl^JI jjliio y J-obLJ( VB.NET aaJ ^-Lc. -2 

^9 LLS$-0 * Q ‘Jj(Q ^j VB.NET AjLL 0-objj ^9 L^Jbiol ^_L> ^JJI CjIJLmJI ^ig~y —3 

( ) ♦ J ~3 * * 9 ^ 

( ^.baUl Ji-jib Q^lUt ^ I ^ ^ ^ ^1 ujbL-J( -4 

( ) . jj§ > i g S. Jl Oj_Slj ^9 A t ijj >, 2 V 4->»LjjjJLI j-uuiJw ^ jJI Jm3>( £C-o^JU -5 

( ) . ^ ^ ^ ^ i-^s tl 4-wC-SjJI CjULmJI j-<3 ^-iJLbJI £;L>»j4 ^j) q *L»dJi ‘ a a '^ ‘ —6 

( ) . 4-fcgJJLX( A * q &j II ufULyJI q tip uJUaJI i^amI 4-q-*-9 * A * ‘ “7 

( ) . •V ibb -JI f j •* V ufULyJI j 1 jJul *_cJLbJI tfLq^u9 ‘ ^ ‘ — 8 

_ jjteVI Llg j^Ai^ J ajS 

























































( ) . 4Ju(jjf dJLq^u9g a r ^ '.a 


( ). J-iLLl-iJI j q is) L^Lb* w^1 j-SLc L_JLbJI oj^j^ —9 

( ) . jdUl ‘ ^ LfULyJI j 1 L^JLuJi^j j^Lf ■ A Uj 11 4 -q^ 10 

i-uJUJ-> j-ULQ iS^9 4^Lbj^» 4 ^»LxjulO JjLjuxj H 6 j_Sb ^9 JjjS* jLu —11 

( ) * 0 ^ 

JbJ>) AijJLQj jJg 11 < q ^ ff jd <X±JL juuu ^ji_JI jdb> j j bi» jLuJI —12 

( ) . 

( ). £$j 9 I 4 J ^^q-SJl Oj-£llj j 3 Lkq VB.NET *iJ oljjuLUL > >r>qj -13 

pJb CiLLmJJ <ja-a$ ^9^9 p ml ^nuLLg J_SU jj ^_* jl VB.NET 4_xJ JsjJLjJjJ —14 

( ). l*JL«! 

( ) ^ ^ tt ^ cr. At t-C-14..< ujjjjj ji jbd-mj VB.NET 4_*J jjl^uLlJLl j_c jM_c,yi —15 

ujl^uLm ^ I c ■ 6 j »~~ VB.NET 4_xJ 4 Jiuuj aJLjjjlo ujI^uLLII j_c, —16 

( ). LJLLb L^-c^J 

String p^ub jd^u j-c. j'SU.MJ Dim Fname As String iLJLUf iLUJ .1 -17 

( ) • F name 

As String IJLJI ilgJ .1 -18 
^\)) ^ ( ) ♦ String all^ 9 

( ). all$1 9 jdLUI ujI^uLLU iLq^. -19 

( ). dJuLLM qJLq^ig 4 _c,jJa p_uj| 1 • a tlfl^uLJU j_c, jM_c,yi a I q •>• —20 

( ). p *j * * A i* A ^ ^ A p ml *_* 55City —21 

( ). jbbLq p_uj| 55City -22 

( ) 4 -q-L^ gjy (Ja^>» jijLLq p-u<(Name —23 

( ). j_q j$SJLa qjy ^-u^K-iya jnubLg p_u*f Name -24 

( ). ti)lj 4 jLUI j-c, jSL&y) Dim j-o^l pj^>JLuu -25 

( ). j_c, ^ Dim j-gl ^a^JLuaj -26 

( ) . ul^Utl l l j_C, jM_C.^I ^9 Const ^qf ^JbJsJLujLj -27 

( ) . tLul^JLJI j_C, jM_c,yf ^9 Const ^qf j 6 Aj>«JLju*j -28 

y <Lq-*-Sg |^_ijjI L^J jJSq ji > q S. Tl Oj-Stj ^9 jjL>wo j_c, qjL_£ VB.NET 4_xJ ^9 cul^lJI —29 

( qLbljiilj 

<Lq-*-Sg ^9^9 p-wjl L^J jJSq > > q ^ I) j ^9 jjL^q j_c, SjL_£ VB.NET 4_xJ ^9 Cul^iJI —30 

( qLbljiilj 

( ). Syntax Error j$-a-} Lb_>. jiiju gJ^Lx-q ji ljLjjj^ a > Pi LbJ.| -31 

( ) i ^gi«- Error u ^u: ...^^.r.^fuii -i? 

j$JJ Lb^ <uk J-Lbj VB.NET ^qb^ i^Lu d t J,t n >1 <Lbl^ 4 % jUl LbJ.) -33 

^ ( ). Syntax Error 

V 1( V 



J,t ut 7 II Lb^>. d ,lr jlh_, VB.NET g-gU* -LuLu gLul jjJI LbJ-l -34 

( ) Run time Error 

= 3 + 2*4 iLJLJI 4J^LxJll i^Lu jju X ^t7g(T 4-o.JUI -35 

( MU) 

^ X = 3 + 2 * 4 iLJLJf ^uai i^u aju X jdLL*U LuL^J\ -36 

( )* ( 20 ) 


^UtdjL* J2 JU22 


I <uU2l : Lyld 


. UjULu£ ' O^* 4 ^ 4^jjLa1I lj!jJVI jbu-i 4-gjfl -X 

( 4c. jILq - 4 ni - v ,^ ^jjc. 4_ui3j ^ 

. CiULu£ \ CP'H 4_iujjAlt f L&ui) 4_4 j2 -2 

( _ 4 -vj -v , jjc. 4ja9j - <c. ^ILa ^ 

: SjSI j ^ \j&ja oja^dl ck# £jj -3 

( A^J (jjj jp- - j^^-l - AIajS ^jau ) 

: if* Salary CP 0^^ 4_aaau^al) 4*a^| -4 

( Dim Salary As Integer - Dim S^fuppByte - Dim Salary As Decimal ) 

•4^^) jJLLa ifi- 4j*jp^al\ Atju^il) -5 

( Dim City As String. %^Pm City As Byte - Dim City As Decimal) 

$S^F_Name f«VI CP A^^ual l 4*a«ail -6 

( Dim F_Name As Integer - T)im F_Name As Char- Dim F_Name As Decimal) 

: ^ Gender 6^ 4 yi^^l l Akpal\ -7 

( Dim Gender As Decimal - Dim Gender As Integer - Dim Gender As Boolean ) 

: (j* F Name VI j^*l« CP 0^^ Aa^a^al l 4*j^all -8 

( Dim F_Name As Integer - Dim F_Name As Char - Din F_Name As Char ) 

: VB.NET *u j$lb <*ill Ualll -9 

( Syntax Error - Logic Error - Runtime Error ) 

: Lr 4uu VB.NET 4*1 hUl *U$i <*ill UaiJI -10 

( Syntax Error - Logic Error - Runtime Error ) 

: VB.NET ^ Jx^ £1U J UmJI -H 

( Syntax Error - Logic Error - Runtime Error ) 

:>X = 3 + 2*4 *1^ X j^iidl ^t^l g2L211 -12 

( 11 - 24 - 20 ) 

: 3* Y = 16-12/4 + 2 aLU-aII Y ^^iil g3Ull -13 

(2 - 11 - 14 ) 

: OP O^VI ^ Dim X As String CP O^VI 41* -14 

4-1 J- X 4^ jjj String 4^1 jjj*!# - String ^ 4c.jjj x 4-^1 jj*i# ) 

Q ( String 4^jjj <aujI 



: Y 4a«i1 jjC- jjxL (jt 4-aaa^al ) c£M) ^Iax -15 

( Dim Y As Decimal - Y As Decimal - Dim Y = Decimal) 

. i_ilUal) ^uj! jjiioil ^uuV) jax) -16 

( St_name - name - Name** ) 

j cilajal) (JIjjC- jj*1a 1 ^axadll jiil -17 

( 5Cairo - E_Address - (Address) ) 

; iJC-La 4 %jv*^ 4allalt CjijJLLdi fLa-uit -13 

( St_Text - Text - _st_text ) 

. jjiij Ja ^uabjll Cajlal) Ls- -19 

( Dim pi As Single - Dim pi As Single=3.14 - Comst pi As Single=3.14 ) 

; «Jj£l) » ••* AoaajVt Aajjlxl) AA^£. data ^C- (j^tC’V) -lit -20 

( Dim g As Single - Const g As Single = 9.81 - Dim g As Single= 9.81 ) 
: j* C_Family ajc’ jj*L» oe- -21 

Dim C_Family As Single = 2 - Conk C_Family As Integer = 2 ) 

* (rm\p ( Dim C_Family Integer = 2 

; LkaJl )i& jjjj u c ^caUjj ^ JalalLaa A^Luia c-ibaa. Ika. ±^j |j| -22 

( SyntAM^or - Logic Error - Runtime Error ) 

lial Ifrinadj Dimens^^^M.s Byte 43*11 4a^£ Lc- ^) dail) -23 

(Syntax Error - Logic Error - Runtime Error ) 
:> Y = 12-2 + 4/ 2 ^t*L) £iUll -24 

(9-7 - 12 ) 

:> Y = 12-(2 + 4)/2 ^ix4il ^1>L) £1U1I-25 


( 9 


7 


12 ) 





g-ola^JI 


:© 


Jit uu $Lul jiia ^ |4dii jJa 1^* 3 * ^~ 3 j ** j ^ ^ ^ ^ jkj >*a j_£Lol.. -1 

.£>*11 0-« jLu ^JbJsJLju jJ i_JLbJI ‘“I j j >* 2 J —2 

aJ MjjjLm ^9-JI j-0 jjjUl 1 ^ vLi» jiJI fqah> ... ^jbfi-3 

. £$JJI j_o jLu |4Ja>uLiuuJ -.1—up^-Law jaja**JLJ —4 

.LqJ-SJf JUjLLjupL ^OjuLUI ,>c ^ -5 

...... ^ 11 ( j_o Ui> ^JLlj dJx cL*-if Cuul 4q u£ jdduaj$> j64£ 4Jl> ^9 —6 

....... £$JJI j_4 1 la» 4J-C £tJLia «LuLjjjlJ>( tliLUaJI Luba Jala^J^I SLctj-O pj*c. -7 

..$-6 jja> j la tt4 3 JLiotfl ^LLfl-0 j-Qj AiLby ^JasJLaua ^Sj->- uiala -8 

. 0 : 255 ^j-o Ajjja LqaaS >i>Li .^ 9 »11 j_o jbbJ L I —9 

i jIj&VI <11211 bal - j3j#*sit (fjsi 



iLg-ujuaJl <_>Ljuu_^ ..J_ol_*JLI pJbJ K dUJJJ H 10 

. k* A d L^-Lc. jSLc^fl ;Lu! L^J iLa^ ‘ ^gJu ............... —11 

jbjj^ gLuuJf ^9 ^ajkJLjuaj ..........— aji) ■>. <Lg.LSLll —12 

♦ jOLLa J>U 4-g->-S jjj^sJJ ..j&jhJKJLmj —13 

. aJ_c j^Lc^l jLSLc ajbJsJLi.^ —.......... JLj-jlLjjjI jjLbJ —14 

.$_a> False $t True a-g^£ jiJl jL-JI -15 

......... a g j> a 11 jl>L jjjjlJI jjuL U l |jli j^uL L g U ddyljJj^fl agnail JLjjil a_JL>> ji — 16 

............ a g .a 11 a >L ^a Ft i U jjuLJ l l Lg-Lu.aa^aJI 1>L ^9j^l Lg JLu 

.ofjOtiJtf CH» -17 

......... £$JJ( j_a jLu s+Jk **«« LJa^Lua £U;Lj j_>j_>LLJ —18 

. ......... $1......... _> ^uLUl i^-ujI Ijmj jl uljjjL m a^L.g-jmj j_a -19 

. ........... gt ............ ^ I f j| j_SLf | iaaJII aJjIao j_g j-uju^TI H 11 —20 

j-o I h -v gLLu jlj k JLjjjJ U ^c a ^a ^^^-S’l a.g_t_s j^* i ^ all> ^9 —21 


.£$441 j,.a ^^LbJI aj*c ja>>JLl -22 

.J^L>» ..(^||pY J^>* j-a jn 11 w*> 4.1? a-a-ti h > w>> (*Ij -23 

. .j-« jjuLUl (9-wtfI 09 -SLj jl ^-a-^ju -24 

. £.3*11 j-a Ua^>» ^JLL» a_a-*-l ^ u . ^ c ti «it c t^ —25 

. gLaUjaJI J_>la klutgJLlI j_c. .a_g_LSLH ^JbJKdUuaj -26 

....... »a 1J JLLa ( 3.14 ) ^gLuju ^JJlg ( Ja ) a-g-*-9 jtlJU -27 

. <LuLujlJ.| JjLuLa-xJt j-a^b J>aj jl j-SLc V olJL-<JI j_a £.......... —28 

. ... ^9 tfl L^aJb^Juaif jr^i Fi 7 at 1 ^ ^c_aU^JI J^bla tlulgJUlg uljtilll —29 

. jo 4a_|jJJ ~ ,»• ..a_aM_*JI —35 

. juLaJJJI ^9 Dj_nLL_a 4»l a ii I a f ........... a »I g f —30 

.^ R a-<M-9 jLi Dim R As Integer = 8.3 RjL£ lal -31 

. ..£$JJI j_a 1 ^ £c_g_udj VB gc_alJja —32 

.......... £$JJ( j_a jLu jftAjsJugo doMjAa ^a-ijjl jjj^sJLJ —33 

. ^-gL^iJI J^jLjujJ cLLjI joLu ^_Lc j~3 ~ ^~3 j*3 •; 9 S. ** 0 oj^ ■>, ■>,<> j_^Lal —.. -34 

. uJj §1 ^_»jG a_>L IS Ljjjl (al .......... ^_LgM_c —35 

. .............. -j ( = ) a_gM-a ^g-ujJ —36 

. i 11 j_g ^uLLg |AOuqmj ( ^ujj(j / ^>b ) uJU^I ** * j jj " t —37 

. joLLgJJ a^>mi /<wUl aajb^> ..—38 

© 


is jbayt <11211 kii^lt - jS^j^aii ^jis 




. .......... JuLta j$_Su I ^ t o J-oLsJu ^JlJI ujLLuJI -39 

. gc-glJTfJt J-uLjjjJ cLiuf jduu jl j-SLr .............. jLs lluLlJI j_c. j^Lttfl -40 

.... j-o j$_SL> (ii» > > a >1 uJ^p jLs iiugJ^fl jjjJu L^J 4-*->Luo^» <g>«I <j r *$->■$ <LJL>. -41 

. ........... £*UI j4 jLb» uJI h tl jl^JLc —42 

j_0 tulJLu ^jbJsJLjuuJ ^JLc. ^g-UL 4->hJL^jua 4-oJh£, 4-q-*-S jujuLJj -43 

.£$JJf 

g.aj*Jf J*iuki ^ j-SL* *.jM-c,tff -ut-> -44 

. ........... ^$J_n j-o j4jLl4 |& j j k JLuli i o jjjuLuJ -45 

. ........... £$JJI j_o jLu ^JbjLJLujJ utigg £SUjlu ^Lc d-q-ii jujuLuJ -46 

....... £$Jj| j_$ ujIjhuLLo jAJuk-LjujJ Ajjujj-C nt ^ ^_l_£, j~3 ~ d_oJt£, <Lq-*-S jjjuLJj —47 

. .......... j_o jLu |ftjhXdUJiu jujuLuJ —48 

iLJLLl oibiU j_c ... —49 

.£$u-JI j- 4 0^ <^-^1 / ) £,94JI jjjuLiJ -57 

. 9 _& Integer £ po jL_JI 4 JjLmuu jUI Oj_£|jJI ju_> -50 

. ........... fotLL||p<^ljLu jflJuLJLiuuu djjjwl j(^i( jaa jjjuLuJ —51 

jU£*l £LL± * ^Xc, ^1*111$ crijtAUI j* jXc*l ^ fjf -52 

w *1^*1 

♦ ♦♦♦♦♦♦♦♦♦♦ £$JJI jljLLq pjbiuuujj uiliiil jQf -53 

♦ ♦♦♦♦♦♦♦ * ♦♦♦♦♦♦ 4 ♦♦♦♦♦♦ J i C jl J^Lc jr^ ^ 7 fl 4 1 g 'V J-0 J-dC^fl u9jJaJI -54 

• *UL»4Uf iuLtf ^9.$1.iLg±SJI |£JhJ>hJLjUdLJ -55 

.£$JJI j_o jLu L^J Text 4 -*uujL&I -56 

. .......... £$4Jf j-« jLu jAJukJLjuju * ■ tl U tl j j j >, 2 1 -57 

. jri > iUUc p ^ *»♦ jnLdjJa j_d 4 I 0 ~v j^ o^L-c .. —58 

............ dJLuuuu jl ju* oXuLu |^Ju jnut-o J-J-xJ ^LLX <d-)LL£ jJx —59 

.*Lb^>4 ^1 j-jp Sj 9 » 4^uluuukJ>l kuLug-LxJI 4 uLL^ ^9 f LbuL^fl —60 






( ) / 9 »h£ ^ tfyiit ^1 unolj 1 >m ftaaauttH (^>A ^>wi Single ftUJIfcy —1 

( ) . J^lj Dim JLxjmI) /duo ^9 ^jTi ^ —2 

( ) , pdiiU) qUu 6 t 1 )i) 1 ) ul/oiAl pljadwl -3 

( ) . ^9 llu> tfi cdfr gut ^ uilyillj ul^jlbl m»m) gliil pjL£> —4 

^TP) ( ) . *tJW1 O 0 P *»1 iAu <)1 osg -5 



( ) . Char ^yJI ()g ()Ui ^ cjJim pwl —6 

( ) . gyiJI ubUdl ^1^1 -7 

( ) . String gpJI g* 09 & Text omoUJJ <)U>J 1 fcy -8 

( ) . RAM f Joumu g»1i/J1 Jib oUa>^U>1 culiiA -9 

( ) . go) cJuuo N = N + 1 cJuuaM — 10 

( ) . ai>|111 pt )t)i ajliljJI yitlyf^ll ootf uL> pii toulmil uliltfll ^ yul^l Jvlii Jkifr — 11 

( ) J>b IStf cJUxLili u)U)1 9 I fij ti)>! ^Uu iJdC —12 

( ) , Ais>^b ai 9|> cJUL ||itt ( " " ) mUxII — 13 

( ) . Byte |,wmi M)Uol)1 liUil (joUo ^0 ^yuaOl i/h (j^u —14 

( ) . t|dull gouifiU ^Hl0 3.14 tfjlu) ( 1) ) <Xol£ /U» -15 


( ) 
( ) 

( ) 


. dl/Uti&l slant 09,** wl/Ottell /)J pdl -16 


( )• yli/dl iliil ^ oiiajj \)U 

( ) . 

( ) . 

( ) fls/l tiil^ ^ 019^ CO 


( ) 
( ) 


( ) Variable Name = Valm 

( ). gtffli/JI JumI sli»l %3^4. ^ a.io.i9 yl} *u$ swjS gib)) cjol* (>S> — 1 <8 

( ) . uUfr^ll *l\t! «J e** tUifr) <jdC /JuJt\ (>fr Asa -19 

( ) . J^ly fj&ft Ail* cd£? plAioMtl* yiiuW oijiJbl o«ift]! —20 

( ) Box uaill^ -21 

( ) . cuuLmM uUUslI ^ ^tl^l |[>lji U yJI uUUnN juJui -22 

( ) ulUill pail cu 9 gioy pit yiiul) pwtf String &ol^l1 pliidwl —23 

( ) . ( = ) dffUxll <juf /liukl &otf /uui t qommJI /l jutAu Jl» -24 

( ) .oMtaoM^k Single gfiJt £» dl/tft&l -25 

( ) . oMhis Y = Y cjujoI! —27 

( ) .6 o«aaJ 1 oils Single gyJI (>» /uis ^ 6.3 &oaa11oju** - 28 

( ) , & 1 A 1 M.W ^9 Ji^l! tffiwili! Jl \yO wiIhi^I iil^bUi)l u(mo>! pii —29 

: QUU?il! Mai Laia <m 2I ^yLtall qUU?!) Mai £dU - 

1) 4 A 2*2/(4*2) 

2) 2*4 A 2+4/2 

3) (4+3*9/(9-6) A 2) 

4) (2 A 3+2 ) / 2+3*2 

5) 12 mod 9 

6) 3 A 2 + 8/ 4*3 

7) 2 A 2 + (10 - 2 * 5 ) / 2 

8) (5 + 3 A 2/(8mod5) ) 

© 
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JUI ^ jonimU & Jam J£J wmLII glwJI jj* 


hH^-IP. AHMED 


4 

© ^ 


LSJ& 

8/8/2016 
3 I 


f—Vi 

MJb^j 








; ^E-aLjjjJl 4 _jLj£j ^L&3 iLa Sjbb 4 ^Lul« uLuOi Jljj 

Const Pi As Single = 3.14 • 

Dim R As Single 
Dim Area As Double 
R = 200 

Area = Pi * R * R 
MsgBox (Area) 

. 

<U (j rtj i rtVil Single £ 


<ajl .£jJ &A R ^ JAjlSI £ Jil\ ^^Luj! - 

QA .ujLIII La£ - 

.^4^! 

•••••••••••• ♦* 

£_baji.£jb]| £y* .<_$JJaSI jjJlIaS! ^I^Luil fj L*£ - 

.Pi * R A 2 b«Uj ^jLuu .4_jfl 

Pi bubJ! & <£UV! £ ^ ‘ Dim ^l-iib-uAj R ^ <£UV! - 

. 4-alZl\ ^iJab-wb 

I j£ j $4 jai Lfiy&dl^ Uwbjil £«0£ Qljaaall ^LomiI g$ 4LJI 



V r i ^L-aj 


V f i ^l^aj 

Kenzy2016 


Sangle 


Tom& Jerry 


E 


First Name 


E1K2 


Birth.day 


_E 


20ctober 


Eyad_Rona 


jbl 


A@ahmed 


Hello! Cairo 


Integer 



© 

















































<ydf uda*J| I AA (jj UaftJI wmmi 


Private Sufc Buttonl_Cliclc (! 
Dirr. Radius As Single 


: r Val sender As Cfcj 


Const pi As Single ^22 / 
Radius = TextBoxl-Text 
Label2 .Text = pi *=' Radius 
End Sub 



r As Cfc j 


Radius * 2 



Fri^v Name 'Radius' is not declared, ^ j 3yV\a 
Radius = TextBoxl.Text 

,-VvVvVv j 

Lafcs] O .Text = 

End S_jJc 


. 4J £a <ib^U £UjLj (jc -1 

. <ill <L«i (jjJ tilbafl <_£lla J.1C- (jC> ^ -2 

3.14 ^ jlyfi J &)j la tufl o^Vb ^ -3 

. First Name ^UuiL^^^Kenzy 'buiJI ^ -5 

. IgJ AaaS Xa (ilUjJw ^uit O^C'Vb ^2 -6 

Jjilftil Ujbjla-4 4 iilual -7 

^ . Eyad ^ <_Ab> bub -8 

Labell SUV! d*b K j^bj Y j£b <£teVl-9 

J^b Last Name j^bJ'j First Name <A>^' u^j^-10 

. J^aiia jku, ^ Label2 SbVI 






dlAaJI 

UaaJI uuu 


1- Dim As as string = "Eyad" 



2- Dim studentName As String = Kenzy 



3- Single = 120 



4- Dim X as Byte =259 



5- Const pi as single 



6 - Din Numberstudent as integer 



7 - Dim X as Byte = -15 




<D 



































1- Dim R as String 
R = "Eyad" & ’’Ahmed” 



2- Labell. Text =’’Kenzy” & ” ” &’’Ahmed” 


3- Label2 . Text = ”Rona” & VbCrLf & ’’Ahmed” 

4- 

Dim FirstName As String 
Dim LastName As String 
Dim Message As String 
FirstName =“ ***>*“ 

LastName = “ jjc oj” 

Message = " & firstname&lastname 

Labell.text = message 

Labell SM ^ ^ 


Dim X , Y , as Integer 
Dim Z As Single = 3.5 
X = 10 
Y = Z +5 
X = X/2 

Labell . Text = X + Y 



Labell Sl«sl ^ U 


TextBoxl , ^ R 5 R ^ax\ 4-laJjudJ Sislj l^IaIaI - 

. TextBox3 staVi u* j A TextBox2 

TextBox3 SbVt <J^.b j j-aljVI 4 jL£j 






























Conditional Expression 

jL. 9 I jifib mi rfiftl-iIn ctoljc £jn| Cjjjj jj> <izL 0 }jJ| a^f) (p cjn 

rCVilni-> jjufij gib 9I ojIj 9I doid 9I aapa <i©jJ £0 cUjjLlo (qJj 




^ jUu jl 5 a jaSj 

> = 

<> 

> 

^jLaj 

= 

(Jjt-ujj jl 54 

< = 

5® j*-uaj 

< 

^jUaj V 

< > 


: ajjVI cjlB = 40 j^d'j A = 20 5I c-uk lil 


4&UII 

Aa nj 

♦ *♦ 


^ ^ «** 
♦ *• 

A = B 

False 

B > A 

True 

A < > B 

True 

A <= B 

True 

A >= B 

False 

A <B + 10 

True 


yOU> JI 91 M Mil tff>l 9 I ulybi o£> 9 «£ JUttii /liivly ^ 9 J^ 1 I lul^ ^ limp 

: VOw ccS|J1 cJj ^ mi)i« pjAaiuj tuB^i g^iull 9^ ^uuUy 


If... Then 4ia* £^a<JI -1 


“19 ifeaj a*aiL 99^ cSajfl jLd=i| j*| 9A 

cdUhll a»UN cduuoN 

• M 

If Conditional Expression ^Then 
Code 
End If 

.Then <iol^ cfidj c£sjJ| >0^1 aj^jj <ojj True cfis^jjidljjufijJIgjlj jL^|a|- 
. End If c£dj c£sjJ| 10I9IJI aiojJ (qJj False c£sbjjiJ|j,ugjJ| cLqj 3 r’i ilS |a| IqJju 

<11211 ciitfl - j3j#*S 1I yl 0 J1S 







50 cSpLiuj 9 I jj^| 42joJ| duL^ |a| cULa, c ^9 (injal| JlaaiJ ^oUjj Jo^ 


Dim X As Single 
X = TextBoxl . Text 
If X >= 50 Then 
MsgBox ("c^U") 
End If 


. 5 s,LI rf 0 l^i dJLujj iS 9 aib 



(pj |a| Lo| ^ ^ziLi ciolS gibim Lkj^LuiJ 9 I 50 j^> j-i^| <to^d Jlna| (pJ |o| ci 

End If ^ :i£ujjii 50iM» Js| ioifl JLExo) 




. End If <iol^ gi39<pij H<gpd)9 j^iij c£^d clqjLuJ| if hI 0 -^ 

If X >= 50 Then Msgb^T' ") \ P^=^ h ulklll ^ c*JUJl£> 


A = 10 
B = 20 
C = 30 

If A>B Then 
A = 50 
B = 70 
End If 
C = B * 2 

Qtl2J ALLuJ) lj! AlfoMt IaAjj Jju 

. A -1 

. C -2 

False o' 

End If 4^1 JSi jsi\ 
c = b * 2 = 40 Oj^ 

0 4 B = 20 ‘W* 0^ jiajjxjllj 

A = 10 4-*^ Oj^j 

®--- 


; If ..Then 

Age = 25 
Mark = 90 
If Age < 26 Then 
Age = 50 
Mark = 100 
End If 

Total = Mark *2 

gJa j AjLLuJl Itijj Jxj 

Age -l 

Total -2 

Age < 26 -3 

True Age < 26 laj^' 4 -«j3 O' ^ 

fju Jil) i&J ^UJbj ^aaa-ua 

Then 

Age = 50 Oj^ 
Ofr (jijjajil fj Om. Total = 200 4-*A$ 
Mark = 100 

True Oj^ Age < 26 -laj^t 4-«jia - 
jjijj ?! j ^jVI Age 





























If.. Then .. Else -2 


OiLaj “I? Jjaj “U <?jj S9a|i> jLuiil |i>| 


cJokJJ a»U)1 cduuoN 


If Conditional Expression J*jA j* 1 " Then 
Code True jl£ lil 

Else 

Code False 
End If 

iol£> c*Ji cfiOJI aio=J| a*iL ! (oLTrue 

. Else <iob c£Jj dal| plJI aiftjj (uj FalsG bjjid| c!mL^ |o| Lojjj .True 


50 j' aIL^. lUc- 

4 ^olaJ ^)JC. 4 «qKj 2L1L-J 

Dim X As Single 
X = Me . TextBoxl . Text 
If X >= 50 Then 
Msgbox ("c^") 

Else 

Msgbox("M^'j") 

End If 




Msgbox 
"£*U' 


© 


End If *4^^ ja.lt>.,> If 

U^tuaiailj Jau 

If X >= 50 Then Msgbox (" ^ ") Else Msgbox (" j") 























: If.. Then .. Else 


Dim N As Long 
N = Me . TextBoxl. Text 
If N Mod 2 = 0 Then 
Msgbox 
Else 

Msgbox fSjlt”) 

End If 

4.4J&3I JIajI Jflai 4JLuijil La 
hm\ &ja jib n = 7 

Msgbox 


Arabic = 40 
English = 30 

If Arabic > English Then 
Total = (Arabic + English ) * 2 
Else 

Total =( Arabic + English ) / 2 
End If 

jJLLail AjjjLuJl Cil ajUMl Juijj Jxj 

Total 

Total = 140 03^3 


lo£a oyl±> tD 9 pii dcfi 9 o=i|9Jo£ 




If (ilonJnlacSjLinl Else ^ 1^7 Endlf <ioi^ JL<>cliu| 


Select... Case tjtil I -3 


piM cSsic Ooko £>qJJ| Loaic (paziiiiij 


. 2913990)9^ }j&| a9fJ| Jeaj9 o|9^IJ| jj> ajad| jSpj cu| 


Select Case Variable 
Case Value 1 
Code 

Case Value 2 
Code 

Case Value 3 
Code 
Case Else 
Code 

End Select 




. Select Case cdfr d>b Case Else a«l£ JUsuuJ : - 

(11211 kil^lt - J4J^A$ll (fjSi 







«Jt»l fihS Text Boxl JWil Jto 

( — /ho ) Label 1 glfutll fttal 


Dim Degree As Single 


start 


■ 


Try 


Degree = TextBoxl . Text 

Select Case Degree 
Case 0 

Label 1 . Text = " " 

Case Is < 0 
Label 1 . Text = " 

Case Is > 0 

Label 1 . Text = " <jja" 
End Select 


Get D 

y 


i 


Case D 


= o „ 


1 <0 


Output 

"jLa" 

T 


n / 
Output 

"ji-aJi 


1 >0 


jjiOutput" 
"jLdl 


/ 


i 


End 


Catch 

Msgbox ("*^ JiJl") 

TextBoxl . Focus ( ) jA> JjSjj f ^Vu > n Focus ( ) 

TextBoxl. Text = M M AjUSII qja (jj^A ^Vu > n 

End Try 

frt-ul Clj^j ^gJl t—fll 


4i* 


1 IvSlI A^JUua Catch 4 1 Ivs jjgh Try *cd£ - 

End Try L ^aij »l jC atch L lLa. aIL^. ^k - 

oU£ £0 yltO |)th 

^ : Jia fl *\ jjy <■ U 5 jLa 1 J • 1 ,^J * ^wa 

;^o — Yj J < i ^Jb La£ ^ ^ > Ls 0^9^ i J 4^tJ^ 


ComboBoxl 


"!► 


r- 

■5 Fonml 


1 = 1 ® 1 ] 





Textboxl 


© 


i<wti 


0£j-iS JL*£-w«JJ| c5j 1*-J*o*^ \*~* a f+ - J -^ 

























































<ut aj-a ^jk ^1 jLjUaI ■Ljf- uaj i jajyJl J^£j| u!iil 

. i^j^i'i* 1 cjj s i'i<*n 


jj 

.(True) 9 "(Multiline) Ai^aUjI ksuk jHI -> 

(Items) 4 jinl^jl Ji^i (■ ■*'“■ — tiSjdj — — jrfiS — — 5 j^a) I. i>nl — Y 

.(ComboBox) ~<^~*' 51 jV 

5 bVt_i (SelectedlndexChanged) *!>*) j^sJl u_ 5 £l -r 

:(ComboBox) 

Select Case ComboBoxlnSelectedludex 
Case 0 

TextBoxl .Text = "cfjJhbj pLsjfh LaJJuuJi puJJi jj OUuu" 

Case 1 

TextBoxl .Text = M 4JLr u-^j-i pj g-i s*p JLLtsjij-? i pjV pJuu p?” 

Case 2 

TextBoxl .Text = "uJU pDi p „ii£Ajj Lpjupi JJuLj 4- iu-jj —1 wiijiLfi gj Ltv _p* : pu pr" 

Case 3 

TextBoxl,Text = ri pji>^ 1 * «* pj ,pJU p?" 

Case 4 

TextBoxl,Text - ri tfpJi 45 l 5 ^i ^ p*^ 11 

Case 5 

TextBoxl . Text — p : j -•■ 4 jLm Ls ■ 1- - ■ 1 ^jajj ^aILJi J t l J LLj i ^_j ^ ^ - j _JL? ^ j Lj^-? 

Case Else 

1'ls gB0X ( 11 p LJuiJ 1 JLxl jlpl 

End Select 


j u4jjj A_jLI£ ^^3 U.^ p^Sp \ U-il : * t Ahl ) 

44_ujj aJ j_ *aixl\ j! i_ia. (ComboBox) SIj^I 

j 1 an i j—uaixil i_ujjj ^ij~v (Index) 

Jj£*j Y dJlSIij Y ^Cl\ 


jAj Selected index changed *b*! ^ jj£JI )1a p% 

. List Box SbSU 

. ialfi p Ai>s- t \t Joaj (ilijJ Items (jc> SjSU j^aUxIl AiUia) p 

Selected index ApaliJj JjjL ^c- yAi*l\ p 

c£jaaJ| <pju|9 (ofoiJ| o|a| (Qiu| j.r> [ c|}zi[J| ] <£joaJ| gJlco (tmj| j7■: dB^nla 

. Private Sub H qI^ Q£U r ^ »l 1 I ft 

© (jju&m diUn bi^it. jupu ^ t#jss 










jajua 

* * 2luVI A* us-1 

♦♦ ■* ♦ ♦ 

If X > = 50 Then 
Msgbox Ou") 

End If 

. : UJu£ j?-b jbJI Lfrda j AJLwjJI -1 

. : JA lab gub jli X = 50 Wfl cuLS Iji -2 

. : ^ iubj SJU ^ X = 62 M coLS tit -3 

: If .. Then 2 ulji Uubb Lbk< bduii aUwVi ^ u?i -2 

If Conditional Expression (^>2 j-loj )Then Codel Else Code2 

. 0 j* jSl ujLS Ijl Y jbuaJI <ub >u ib {jJajJti uISI -I 

. 2JUjJI 3jJLb> ^ "ulU <£jJl" jb i^SL) bU)l Uubl ^ Codel JJLtbl -u 



. Jy» jfljjtfl -j 

. I&ulf 5UI ^ . 6d*JI lil iLub pb -u 

.^ X jdUtUJI £ $j -u 

.^ Me -6 

. J^SUl bub £Uu jjij jbJI ^ 50 3ub)l JLi-Jl |QJ iji 

® 


^jUfrin diUn dbi. jj& 
































If. Then. Else aamJL Lu*l*« ^jiui j^u ^un Jjjl^i j*si -4 


If Conditional Expression Then 

Code 

Else 

Code 

End If 

ji yaA £ jLuj Country ^tUii culs i:i y&» a4£ Jam ajl* j m'}$ 

: Egypt 4 US j**j AJLwj 3 j^iaJ 

.: ^ >SJ! -1 

.: True bjJii u!>? -2 

.! False ui^ -3 


Dim X As Single 
X = Me. TextBoxl 
If X > = 50 Then 
Msgbox ("jeLj") 
Else 

Msgbox( M u«i j M ) 
End If 


: jjttL) UmlLma AjJLUI iLLriM jA u*) -5 


Text 



. : 4* Juojj juLj jU X = 76 IvJ ullS 1:1 -I 

. : luuj jjIj jU X = 49 OjLS 1:1 -u 

. kite A?\ j jku yflul Block If u jdLftJI }$S1\ 3jLIS JlaI -u 


:^£JI j: Juu i^JUuM ALlwVI j& uH ~6 

Dim N As Long 
N = Me . TextBoxl . Text 
If N Mod 2 = 0 Then 
Msgbox (ViJ (*M") 

Else 

Msgbox ("i$:ji ^jJi") 

End If 

(o 2 jJI 11 jail I Label 1 Jl>l£ "wtii 11 jaaJ! j^la: Com : 4 &I JJl£ -i 

. ajLw j £ j jlu a ^a vjlj Labe!2 jijaa ^3 £&j& 

. Integer N J^t -u 








jLS ijLi jul a u (W 4uuj&u jdj ju i^l Ji j A un J i^JLkJI i $£J1 -7 

^Uiy AJLwj j^ILf JJla ijlj taUaU 2ULuij JJt*)l 

Luted dblu&u gulj j^SyJ JuiliJI *Ua£VI LLuSl Juu J^SJl duLIS Jl£| : ujik»J) 

Dim X As Integer 
N = Me . TextBoxl . Text 
If N Mod 2 = 0 
Msgbox (Vij (*M") 

Else 

Msgbox ("i$j> f£jji") 


j 2u«lja Juu jlJLQI ALuYI uH -8 


Private Sub Buttonl Click( ByVal sender As Syste 

Dim degree As Single 
T ry 

degree = Me . TextBoxl . Text: 

Select Case degree 

Case O 


Me . Label2 . Text 
Case X s < O 

Me . Label2 . Tjt 
Case T s > O 

Me . Labe; 

End Select 
Catch ex As Excel 

MsgBox < ,r o ju^ i " ) 

Me . TextBpl^jt .\{Ft>cus < ) 



End Sub 


. : $A ju -i 

: jaUI 'iuujji 3 jjlm ^ i) Degree = -3 ji ooa i:i -u 

.. (t&uJI 3 LI . QdtJI LjJL jj&I juiu |UJ -u 

. : *a Degree >ulWI 




IdJLi^ . jjfcLtU.l 

_J^Truei^l^liu^^df^ViCka^ 

. *Lj dlhj False jl True guL <Uj ^<> *>•__3 

- <>Select.. Case ^L^^Ju^Lmj .4 

. J^UXI ^JJbL3 ^Lmu V j^juLU 3 

© 














. Select Case ^ ............. -6 

. ^LyJLJI qu\j oiZa blElse£w«i£»<*J j l>*|$VI 1*2If.. Then .. Else^VIfrJU^.7 

_If^oJL^JuuU^^ 

. aJu£3 JU>J Jl^Ij Jb IIjJJ I *j_>#V! ^ _9 

♦ JjUjkUl 1 f LJ&jftmJf _ ji ........ Ul ^jlj -10 

. combo BoxSbVlJSV 1 ^Jls. 1I ja _&JbJLll 

__>*ljVI Ji£3 False .. Then >4VI^JL>.^.12 

. aaJl>-\ Uuj Jljjj <j\JuJj LjJJ bt->«V! *J3cL^ .13 

_,-,i.i^- : _ t ---|f.. Then 

• combo Box StaVI Jj-b sJAi ..15 

. combo Box Sb2>tfj^ak^UV ^^C^Ul^JLifcL.u-17 
. If C^JU^ -18 

_uUI^j Select Case CaU».<^ 2_19 

. combo BoxabVt J£»b^wjji j^Lj .............. g ila ^ a l i -20 

•........... pAjll 1 J uj List Box ab*tt J>l Lhjjj _21 

.....................If.. Then .. Else >*¥122 

. .................... ^ t ^ Tf j^sJ U ^ -23 

-U^JJ <3j - -24 


f feC»l ( x ) A*n* i< 


). Else juu jutiui'pjb True bjIf.. .Then..Else 

( ) . g>iU0loi»1*»;tfdUd*tf bl If.. Then .. Else ,9^11 fjASmt —2 

( ) h##» tP® 0* !**& If cd^ piiOMi —3 

( > A»i 9 ,ih M ' a i*i&ifif 

( ) . q» |iu>1 fO} IF.. .Then .. Else /*** -5 

( ) tjbfM* fljuu \yo j£\ flii>1 oJ\> ^9 Select.. Case cdfr pjbo—* -6 

( ) Else aal£gw 9 » If.. Then .. Else eJ>^-7 

( ) iroJ^d>boi / lu>1 HI sc «jtf-8 

( ) . p!))t1 \yo tJ>lj |Ui>1 pi If.. Then ptfl-9 

( ) . False H&404 tpSJIg.U-10 

( ) . Jiljb tj&jp J«jb<£>9 jutaa»|M» If.. Then .. Elself p>^M ^ -11 


bLa» - J (SJX 




. Lniiflj | Jl loo iJfll LqjLuj l M to jl£ 1^) /ulosll \hh jg:igj .JolaoJI -1 

( i g; ■ ■ i loo C|jj±i U > - = - >=) 

.Oioi£u L^'ii'j If ... Then ... ElsejoiJi /iio? -2 


( End If - EndlfElse -End Else ) 
.jLuii joi g<Q IF...Then...Else join -3 


(jolg-UI jo jji^go^o jo jj^I - jolg-UI jo jli^gono - jolg-UI jo a^alg /togooo ) 

. ^ulg jjslio /iflJfl LtIc I^juso £jJiiJI jg£j lo^i£ . /ilo? p^almj -4 

( Select.. Case - If ..Then - If .. Then .. Else ) 

AOAa jg£j ifl^k. /ipi£ ijj jiii juigiii \;ni~i pii If .. Then .. Else jo-UI Lr^ -5 

. False h^itii 
( Then - Else - End If ) 

. igjLuiii . /ipi£ jiosiuji It .. Then .. Else jo-UI /iio? -6 

( ,guij\i^» - End If - Else ) 


20 E 



30 R <U-yi lil 

. (g R > E -1 

. 4 E <= R -2 

. 4 jtu^ E+10 = R -3 

. (p jh" R <= E gjU -4 

.E>R^^l02U-5 

.. 4 R-E < > 20 -6 

.......... 6J% R-5<=E -7 


IF 4jjVI Akija. Jja. 





(j Jljftlfl (11211 ki^ll - J4J^«$ll yl ^J5S 























i CP 

JA*1\ ,jl£ |j| ” 4iiUa±II jrljAluil u^j $jbc> M jl^iaV ^J^Ul 4a»ajji| Jj£ <_jj£| -X 

. ^ 16 lh 

SjLp jlfrlalj 85 <> 4a>j^l 1^1 " JULm" Sjbfr jlflaV fj!>U! Aa-ajJI Jj* ujjSI -2 
. ">VV SjUc> jl^Jal <ilb jj& j 75 Lh 4 jj£I dul& )j) ”1^ 

50 (> j^i )j) "^U" SjLp jifiaij tJUaii sifjii jj* <-£*) -3 

SjUc- jlgial 2lb jjC- j 

. Text Box U-aili (Jib AjM >->» JjSjj £^ajJ -4 

TextBox2 AjbSil £j>« c£b SjjajaII 4jU£JI ja-J ^J!>UI <-ii£l-5 


R = 15 
D = 20 

If D < > R Then 
R = 25 
D = 90 
End If 
A = D * 2 

AjLLuJ) CA a \\t"\\\ liijj Jju 

* «* ♦* * 

.R jj*^' Aa£ - 

. u* D - 

. p A 

. eg* D < > R 





Age = 15 
Mark = 100 
Total = 150 
If Age > 20 Then 
Age = 25 
Ark = 90 
iStad If 

Total = mark * 2 

ALLuJI dil a iWlll liijj Jaj 

* «* «* * 

. if* Age - 

. U* Total ^uii - 


Dim Computer, English 
Total, Avg As Integer 
Computer = 40 
English = 20 
If Computer > 30 Then 

Total = Computer+English 
Avg = Total/2 
Else 

Computer = 30 
English = 26 

Total = Computer + English 
Avg = Total/2 
End if 



:© 


tfjij&Yt <£iUn JmH . jy&s& jj& 














Dim First as integer =20 , Second as integer=40 
Dim Third as integer = First + Second 1 
Dim Total as integer 
If Third <=50 Then 
Total= First + Second+ Third 
Else 

First=30 

Second=50 . 

Total= First + Second+ Third 
End If 



Dim Age As Single 
Age = Text Boxl. Text 
Select Case Age 
Case 14 To 18 
Labell. Text = “ ” 

Case 19 To 30 
Labell. Text = “ ” 

Case 31 To 40 
Labell. Text = “ ” 

Case 41 To 60 
Labell. Text = 44 ” 

Case Else 

Labell. Text = 60 ^ 14 ” 

End Select 


SUI J J4& J3\ 

: Urn JUj! die. £| 


gftUI Age 


© 


iS JldeVI <11211 kiidll - j4j^«$ll & J1S 









JL0I9UI 02m L/J09, CjIjjoJI £ jl a 32sd 2221139S jIjSj I^n jnihul 


. LMjjjjlo ljIjuoJI ujd ldqjsud 22 £ bJjlsld JU0I919139S jl/SJ yn p jouuuj 

: oJUaJJ 00 UI 1 cduuall 

For Variable = Start Value To End Value ( step Add Value ) 


Code 

Next (variable) 


jIAJUIRj 




ext flail? < jl/SJUIiul 2 J 223 j : For 


ijjjJij o£9J U9*J9 Counter 3I22JI Jjubj did I jjsuuoJI pwl : Variable 

. ( ISJJMC 9I £L3Lu3 ) 

aianj iiojJj 1^9 jIjSJJI 9I jIjlbJJ iul2jJI iuun Start 
. Sjuwj iimJi jl/UJI 9 I olo^JJ ajl^JI mid t* End 
Step Add Value iUU 5 ur AiviwUI QSju aJlb 1 1-1292 objJI cullo CjJIS Ibl - 

. 1 i—1292 jljudi aobjJ iLudljuLDUl iuuoJI uljLilcU 

. U 9I LyutiS US*! nJjU&l Luii/Next HaJS aai 63909^1 variable 


© 


tfjUfr'SH (11211 hiidS - j3j#*Slt yl 0J1S 




: For.Next 

(j! i ‘bus (_£jLu£j jl (Jsl ajIajII ‘Lajs Cbl£ 1 <a\l L> Code 

Next 4-al£ ^*J La >^jjj 4 jjI jfbll AilaJl ^j-a 4jlgjJl (j-a ^)j£l Ajl^ull *Laj3 ^JU-aJ 

U+& <> j£\ AjI^II a-*S Cbl£ b! <]U ^ cJUb $:b jll J^a jjlj Ji ^ _ 

. ( j'j^' aj'^ ls* ) 

J)AC- (j_9^3 (j' *AO^ _jl Ajtgjll _9^ AjI^I A-ajd (j^«aj — 



Dim M As Integer 
For M = 1 To 3 
Msgbox (M) 
Next 


\ jl^LaJ \jli\ qL Jj jjjuo 4jLaJl 6-^-3 -il-ldl (j$ \ Stgp \ bjtj£ (j£-aJ 

<J J^' *-JA fj Next A^Kl J^3 u' C ^ 1 A-^l O- 3 fJ-“VI 

Next J^3 u' <Jh ( 2 ) a^' o^j^? ^A3j 1 j'-^ j^d' a-*js s A)J 
A^ ^U^SJ Sj-dl *La ^ . Next A-oKJ J^aj ( 3 ) A-a^II <_>aJ*Jj (J jb! oJ* a^b jll 
. Ajj'jS3l» AikJi (> £ jij£ill AjI^' A-aj3 qa j&\ <_$1 m = 4 

: d»UI yd U TextBox ftb! J>b jl J^ll y»/il o»U£ ) 

Dim m as Integer 
For m = 1 To 3 

TextBox 1 . Text = TextBox 1 . Text & m 


Next m 


© 


123 



























l>^T extBoxl .Text = m J j^' A 

m = 3 -Laa 

^Jliill (J£.^aliiuj ■‘mVi <ULa. 

123123 

• Por J-*Vi (JjSj (j^lc-VI 6jtiA. Asu j-aVI I2& AiLjal L_L^J A\‘A 
Textboxl . text = " " aJuSA\ ^j* <j<AA j 

: tJUJI df£t* |1>al1 V dJui^ 


TextBoxl . Text = TextBoxl . Text & m & VbCrLf 



For m = 1 To 12 ZZ 

3x10=30 

Str = 2 & "x" & m & "=" 

Product = 3 * m 

Textboxl . text & str & product & VbCrLf 
Next m 

JU]l£ jjSll ajU£j product j str ^ 

Textboxl . text & 3 & "x" & m & "=" & 3 * m & VbCrLf 

£»ImJ 1 tyaib f 1 JuiaMtb J)JUk> AftUJ |*U,> d** 0 ^ 

lid o»u; ,u&j* 

4]*jj ^a ijJI <^a J!ulj Num Num = Textbox2 . Text 



^jUfrin diUn ci^it. ^jss 































1.50 l>® j)j— 


For I = 1.5 To 0.5 Step -0.05 

Me .TextBoxl.Text = Me .TextBoxl.Text & I 6 vbCrLf 

Next 

JS 0.05 0.5 

•*>* 

0 



For I = 1 To B Step C 

Me .TextBoxl.Text = Me .TextBoxl.Text fc I 6 vbCrLf 

Next 

1 

<Luia jJl 1 jjj j)4frVl 

.C <Luia djLj J^uu B 



: For .. Next j*V! 


Dim X as short = 2 2 JLU 


Dim X as short = 2 1 JLU 


Dim m as short 


Dim a as short 


For m = 0 To 10 Step 3 


For a = 3 To 12 Step 4 


X = X * 2 


X = X * 2 


Next 


Label 1. Text = Labell. Text & a 


Label 1. Text = m 


Next 


jjjLuJ) JjSJl jjjjj ^uU La 


jjb-bl jjsn Lis U 


$bl Jib AjJUJI 4 ajflll ~“j‘ ■■ 

ll# 

£)1.Sbl Jib AjMJI (jlajfr alu■■ 


Label 1. Text = 12 

# 

Labell. Text =3711 




Dim x as short = 3 4 JLU 

Dim a as short 

For n = 2 To 10 Step - 4 

X = X * 2 

Next 

Msgbox (n) 

Msgbox (x) 

4 JhLuilt ja IjVl \'***' 4 xj 11 jjiloil 4 _ojS La 

jljUJb f jL ^ Jjiil N = 2 

( 2)1 jil <_iiLuiib sJbjJl JjJLa (2)V 

. 4 _oj 2 qa J 3 l 4 j 1 iJI 4 _oj 3 

X = 3 ^3 


Dim x as short = 4 3 JUo 

Dim a as short 

For a = 0 To 7 Step 3 

X = X * 2 

Next 

JjjLuJl JiJ^Jl ^ub La 

Jib a 4 -ojia jjjj Ja 4j^11i* ^ J.iaj ^ 
J£ jljUJI £jL1 ^ 1 jljUil 

A = 0 , 3 , 6 
jljUJI £jll A = 9 

x = 8, 16,32 u* x Labj 

(blj-a jljUll C 4 )j«a ( 2 )V 


© 

^jLfrV) diUn ci^ii. (jjss 
































Dim Sum , x as integer 
For X = 4 To 11 Step 3 
Next 

Labell. text = sum 

JjjluJl jj&jj jjuU ^waj 

Labell. Text = 21 


5 JU* 


Sum ^ 

XLui 

jljUl tjl JA 

4 

4 

\ 

11 

7 

r 

21 

10 

r 

jjW 

13 



: Do While ... Loop >*21 


LjLc LLb 3$S jIjSjj ( 90 J ljjld < Laima LJIjuaJI ua Lagjsia jjlc dot d$5 jIjSH Jii'iiu j 
. True ijfJajmJI julisuJI 'Aaia LJJIS laJUa d$UI iiiii)' / oJl/ . L/isa Ljjjjj igaaii 




Do While Conditional express^ 

Code 
Loop 

(jl UJUa Loop $ j ij Do While <j!aj qii jj£ 1I jjiis ■ » 

iiiiij 4 jj|j£j]| AikJI <_> Li3*=^ ^ Lji True 

. Loop 

AiLJl (j-a Text Box u- 3 ^ s-IajujI jL&Lail j!j£j (j£-aJ Jlldl Jjfjoi f^lc. 

!AiLa "End" Aic. 

: List Box 1 ^ 4j.pall »toVI - 

Dim N , i As Integer 
N = Text Boxl. Text 
List Boxl. Items . Clear () 
i = 1 

Do While i < = N 
List Boxl. Items . Add (i) 
i = i + 2 

P 





























: Labell Sbl Jib ajj aijll 2 0* 4^-jjll jIjc-VI p j^» <>aj*l Jj* 


Dim N , i As Integer 
N = Text Boxl. Text 
i = 1 

Do While i < = N 
Sum = Sum + i 
i = i + 2 
Loop 

Labell. Text = Sum 


; iUa^pla 

List Box SIjUI Uob jxdLLc an La 1 9 dnjsuj poolnij : Items iLualnJI 
. List Box Llilo italic dnLaUpjuuunJ : Add dhw^JI 

.List Box Clear () film,*// 


ListBo 


StBox ibU) afttbj 


pMis . Add ( j^a*1\ ) 

: List Boxl itall $0 ^Ual) if di»> ^ 


List Boxl . Items . Clear ( ) 


: Jjiil .‘iji n £uU jtuaj -2 

Dim X as integer = 2 
Do While X <= 8 
X = X + 2 
Msgbox (x) 

Loop 

x = 4,6,8,10 L»jS 



: Do While _>*VI <> *11.1 


; Jj£3l jjijj j£jU gjJaj -X 

Dim X as integer = 2 
Do While X <= 8 
Msgbox (x) 

X = X + 2 
Loop 

x = 2,4,6,8 d 




iS JlJfclfl <11211 biualt - j3j#*Slt (jl 4 J5S 






: ^Ull JjSll Liu £uU ^Laj -4 


: ^UJI Jjill Liu ^uU ^Laj -3 

Dim X as integer = 3 


Dim X as integer = 1 

Do While X > 7 


Do While X <= 7 

X = X + 2 


X = X + 2 

Loop 


Loop 

Msgbox (x) 


Msgbox (x) 

X = 3 4-uS £ jSj 


x = 9 


: Liu ^jU -5 


r/ til t yv a^5 — a 

Do While X < 7 

Sum = sum + x 

X = X + 2 

Loop 

Labell. Text - Sum 

X^ 

Sum 


1 

1 

3 

4 

5 

9 



Labell. Text = 








3F 

: ^iU^I Liu ^uU gjJaj -6 

Dim X as integer = 1 




Do While X < 7 

X*-£ 

Sum ^ 


X = X + 2 

1 

- 


Sum = sum + x 

3 

3 


Loop 

5 

8 


Labell. Text = Sum 

7 

15 



Labell. Text = 9 


JjUaj ^ jl f Ij^VI ji»JlJ JJ*1L| L)®' P-lI ajLuj Ll aixj 

t ioiualU 

• •» 


Procedure 


• ®L Liu ^L ^suuVI iL f-\£- jIujI Lc> (jj3L4 ^uil ui^u CJ j^ljV! <j-a o 

. Cj)j^]| qa AjJxJ) ojlc-Jluj) (jLujj Si^tj »ja f I Cfi> ^Lj — 

. uj|f Ij^VI dli f l&iLuj <j£lL ^ .Jj£3l 4uU£ j!j£j LJj jfljj — 
© . dixu (jjUuijfl ( xLa j Auuut AuU£j f Ij^VI p^Jluil ^L — 










































. : Function 


jj*j V : Sub * b*t 


AjU£ dijj uLLUJl Jib (jH» (jA Jj£| ^ <GjU& jjlLbui LLii <jl£ b! 4_aiHuJ 

. Ajf Ijflj <U$i Jj^-uuj ljSS\ 


: «*UH«duaol1 


Sub Name (parameters) 

Code 

End Sub 


. fIJ*V! flfi’JlujI Ale. 


. yC-. 



. *b*Vl : Name - 
Jr& : Parameters - 
cjUilfcUlj j*\Si\: Code - 

il^l (>£> Jb. i)Uo 


Sub ShowOddOrEven ()' 

Dim I As Integer 
Labell. Text = " " 

For 1 = 1 To 10 Step2 

Labell. Text = Labell. Text & " " & I 

Next 

End Sub 


Private Sub Buttonl _ Click (ByVal sender As System) 
ShowOddOrEven () 

End Sub 


Private Sub Button2 _ Click (ByVal sender As System) 
ShowOddOrEven () 

End Sub 
End Class 







0^^' yfl Button2 jjl' j' Buttonl jjl' J& kkJatt Up 

. 1 4j'*M' u^ . 10 1 (> 4 j«U^' 

( Parameters J»L)I1 ) pgaD il^j JUaiml (>o jrf d)j Jail 


: Parameters £t o^k2l 


Sub ShowOddOrEven (ByYal Start as integer, ByYal End as integer) 
Dim I As Integer 
Labell. Text = " " 

For I = Start To End Step2 

Labell. Text = Labell. Text & " " &I 

Next 

End Sub 


f. vVu a U ) Jil\ fuU) JjiLU iuUuj End j Start j£*3 


onlig JaiU»9 f JUimU * 1^1 ,UJuu^l 


Private Sub Buttonl_Click: (1 

•no x c>-® 

ShowOddOrEven (l r H 
End Sub 

Private Sub Buttc^STO^iclc (ByVal 
• lO LS —i » 1 ^ » jlx Sf i 

ShowOddOrEveiL< 2 „ X O ) 

End Sub 



sende 


sende 


(JaiUijll) Parameters ^ 


Aj*j)xa jjP f Ij^VI qa JbaluiV AUuijS 

. Parameters 0* j^' tUlaj j . f *IpUujI Up JAUi LUIj 
. Argument O* ft* f'j*¥' fteU^' Uc- - 

. 4Jb j' jl JJX1A jl O-Jj^a Aa^ f Ij^VI ia^J £)& O' O^rf 

. c yau^Vi 41** j\ ^ Jjaj V Sub 



© 


Function aJIjJI jt giktfl 


fUj (l$l£Uaj op jj*-« Oj^ O' ) 0^*-* f^' j^'jVI 0^» 4 p0^ 

^aU Ala ^uUwj Jj£ UjU <jl£ Ij| 1 ^ „• . 4_aJL Jijju j iULuij jl ulOH.la ^ip \QJLulai 

(jjUfrVI diU» cLoll. Jkjm*S& yi ^JSS 














Function Name (Parameters ) As Data Type 
Code 

Return Value 
End Function 

fuit & jj*j : Name - 
. £ja AaaIjII 4-ajUU (j-alaJI : Data Type - 

. 4-d^lutJI iajLdujJ! : Parameters - 

.Function 3^1 flc-Jlujj U^jc- cjLulxSJIj : Code - 

. Function <> : Value - 




01 " 


Function Sum (Byval First As Single .TSwM Second A s Single ) As Single 
Dim total As Single 
Total = First + Second 
Return total 
End Function 

&U1 dUkl <,» 

First , Second : IisIujj - Sum ^ 

. Single £j* - total : 


Sum 4ilAJI $ 

Private Sub Buttonl _ Click (bYvAL Sender As Object 
Dim X as Single = Text Boxl. Text 
Dim Y as Single = Text Box2 . Text 
Labell. Text = Sum (X , Y ) 

End Sub 


:© 


<11211 JmI - j3j#*slt (fj& 



abgaJfl 


L^j fill 2 ml Ul$ L^J *Lq^^ jn i j ^ <f V ^JlgJtJI — 

. illjj JJU (Lq-»JlJ\ G.L& ^(jbJsJLujI ^ 
. L^JuLJa^j aJLLjLLq J$jJI d-iq-juju* J n<h a j — 

jn II nn >. 7 It 4 JjLl^ j-q j-ctff tijiaJI ^JbJsJLjuoj Jf^jJI - 

♦ Ufr±ij ^ J^L^U 
• ^uL L^J jlj jjV jl - 


yujj qLul$ j^Lctf I qLuf L^J ^,i 


0*>^ 

i j-SLc : Variables LjI^uLUI - 


. l^j iu>>af 


dLLL^ htfS j^Lc*f ;Luf L$J ^ 


»Jtl f^- yU t f 



j>>ai ^juji ^ u jsJLuj 1 du±s s 

dbi , /^SL? : Constants klufaiJI - 

^) . L^j aJ^kJLI ^. yi J( ^1 Jb JsJL ujJ 

jJLt i$jLLS ^ c,jJ* ujZ : Function jijjji - 

■ w 


© 


(j jljftlH (11211 kiltfl - J4J^«$ll yl ^J5S 



iBtUiJ .^uUSliLI 

V ; JU 1 I JjSJL L LxLuu AiiuiVI (jC’ <_jaJ _ 1 

Private Sub Buttonl_Click (. 

Dim M As Integer 
For M = 1 To 3 
Msgbox (M) 

Next 
End Sub 

.Sbl .da^ij ( jl£‘ )o3uJal\ ^ 2 a La^iC' Jij£j| jjiD ^ 2 a _i 

.<> (- jpz* ) 0^ Dim >»V1 ^ -uj 

. ; jA A-ajlj£iJl AilaJt jjilail ^ual -Ci 

A-ajSj c .4_aa2j 4 .Ajj|j£al! AJ&l^i) AjI^j A^ajfl _da 

.1.1.. SjWI 

.M A^jS J^aj Uijc. AjjIjSjJI AllaJl iaila ciSjjj -£ 

.J* d J*J^ ^ -£ 


Jjlib Uj 

Private Sub But_Repeat_Click (ByVal se?t<|ejr 
Dim m As Integer 
Me.Labell.Text = "" 

For m = 5 To 9 Step2 

Me.labell.Text= Me.labell.lfkt&m&vbCrlf 

Next m 

. 7 fSj uajlkJl 

Msgbox ( ,f I ^1") 

End Sub 


AJUil AliuaVI CP -2 


& 


. : p JjSi! (> -i 

.SU .daJ^Jl LaJjS- J .laArU -lj 

.J4V! ^hVi»m1 m CP 0^^ -ba 

. j ^A ~ jlj£aJl AIaAi -da 

. : p djL£j -£ 

AlaaJ) & iajjil J^bua fhVual (j^ 3 U*^ ~C 

.: P (Me.labell.Text= Me.labell.Text&m&vbCrlf) 

AJ&I^II liila Jxj M jJ*dail 4_ajlgb]j A-ajiil jl^JaV 4_aJ^Ul JijSil AIaa JaAili <jlLa <_u£1 

. AJU-jil Jj^-a qja p Ajj1j£iJ1 


„ j!**I <!iU» bLaU. JjjpSti J a JJS 






















1 Juauuuia AlluuVI (jC' <—iaI -3 

Dim n, product As Integer 
Dim str As String 
Me.TextBoxl.Text = "" 

For n = 1 Xo 12 

Str = 3 & ” x ” & n <& ” = ” 
product = 3*0 

IVfe. TextBoxl.Text = 1V1 e. TextBoxl.Text & str & 
product & vbCrLf 

Next n 
End Sub 

.: jA ■JjSJ! (jA -i 

( Ual - ). str jjiia 41a Dim str As String _cj 

n 3 g^U (product = 3 * n ) O 4 -£» 

(Ual- £ua) . product 

^ 3 fSjll g^ (product = 3 * n) 43*^ 6* o^j*^ -g 

Ua! - £*a ) . n product 

Me.TextBoxl. Text = Me.TextBoxl.Text& i^ptoduct&vbCrlf 6* o^jdl -g 

text produc|^% r^J str j^dl gdaj -g 

( Ual - £*a ) . TextBoxl 
JlUSVl vbCrlf -Jjdt f 0* - J 


( - g-^) 


. 12 : 1 <> 4 Vj-i* JjSlI -4 

0jUil (iluakj 7 JjJC-VI <-j ij-uai ^Jaj duakj Jj£3l JjC> ; <_i 

• ,Jj U£ 

7 x 5 = 35 ^ 

7 x 7 = 49 

7 x 9 = 63 

7 x l l = 77 

Dim n, product As Integer 
Dim str As String 
Me.TextBoxl.Text = ”” 

For n = 1 Xo 12 

Str = 4 & ” x ” & n & ” = ” 
product = 4 * n 

Me. TextBoxl.Text = \1 e. TextBoxl.Text & str & 
product & vbCrLf 

Next n 
End Sub 
















































. ^Ui| 1 nt"uno AliutVI (jfr *—-7 

For I = 1 To B Step C 

Me.TextBoxl. Text = Me.TextBoxl.Text& I & vbCrlf 
Next 

.: -I 

. ; AlAxJ) jjila ^uil _l_i 

.j A^jIIL AjjIj£j]| AilaJl jjjj _cj 

.j Aj& AjjIjSjII AqWII -<Jj 

. ; AlAxJl SaIjj A_<u2 

.: j* vbCrlf 6* -C 


AjJ jiil JlAC-VI £jki AjA ijfl AtAC-t JJ ^ic- JaLuall AjC- j AA& JIaAJ ^A^Iuij ^Ull Aij£i| -3 

Aa^jjil AlAcVI Au^jJ AlA&l jji! l*k« IaIj t AJL^aI ^Ail A Axil ^Sai X <j-a 



. : if* ^ jIjSSJ! Alaa. -1 

. : J* I i£ 1 = 1 + 2 6* -2 

.: 3* Loop <> -3 

. ^JU]| AjSil jla<ui uUijLa <j«a f jAi j£ AjluL AjAxuI jLu^V) AA^ -4 


A. 


& 


- ^ ^ ■ siji o 
.jiAia o 


A 


o 

•*■ O 


// 


< * 


,ALujj O 

o 















































jjjALa ^2 -bJjiil jIjc-VI j$iaa2 JJC JIajI 4JU <jiajxil ^ilail Jj&il -9 

Dim N , i As Integer 
N = TextBoxl. Text 
i = 1 

Do While i < = N 
sum = sum + i 
i = i + 2 
Loop 

Label3 . Text = sum 

.:> N = TextBoxl. Text 6* 

. ; JjSJl ^2 -LaAklui^i! jljSail Ala^ -u 

. ; £)! 1-dUa AjjIjSj]) ja&aa ^lu ■■ _lj 

uAi,ja 1! JJxIl qa ja£| Ji£- Lala& o^l\ ^2 AjJjI]! JlJC-VI r j A ^- A jtgJal ^aa -Aj 

.jjiloib ^a ^ailj.Sbl ^2 ^ j]| 


: 4 -y 2 l QljLftlt ^Ul ( x > <WSk ^1 ( V ) <wik 3*0 

6* -JAa-a jjc- UjljH ujLajkjj j^ljl ^Mp^kLa ^e- SjLc- Procedure * lj*¥l -1 

- . ( } 

9 - l&ALal litj £j*-a ^ujI btaj ^>a a&ja^a SjLp Procedure * IjVtfl -2 

^. cjUakiiij jA\ji\ oiA Liii ^ i^a 
( ) ^ S-sc- *bb£ jljD Procedure bilf Ij^VI ^lALLal <>» (jiajiil -3 

» ^* >ti ■■*' iaiualll JaIJ £*aa^a ,j-a ja£| ^2 4aata£ ^2 t-iC-jj Jbail Oj% La.Aafr -4 

( ). Function 

tfralfr JjilsJ ^ aa2a JIJ*J lA Af&aa iaCj t ^uil Aaaa ^jj ljI ajlinllj j^ljVI <j-a A£-ja^a -5 

( ). Procedure * L*' 

1 frajfr Jjikj 4-aaAa J jsu lA jaiaa ±£- j t ^uit Aaaa IgJLuaj ^aa ^ail aaLaalxailj j^ljVI <j-a 4£>ja^a -5 

( ). Function 4itJ 

f lja.1 fALLb Oil -flail £*a>« L>« JjSI ^ djlcaC -jj Jj£ laaii £jJb LaAic -7 

( ). Procedure 

( ). fIj^VI *lc-ALal ^ic- f Ij^VI (> ^j 2 JbiLaV Parameters ^aLL-u _8 

( ) . Argument 4^ Ji^j ^'^il Taxes (0.05 ) ^b ^ Ij^l flc-ALuil Aic- _9 

( ). Argument Taxes 6^ Taxes (0.05 ) flc-ALal Aic- _io 

( ). End Sub -i Sub ^ ^ -11 

( ). End Function -i Function -i 6^ 6^*^* -12 

( ) . l $> l 'Wi 4-aa2 <Gfr UaJi &\£ lil Function ^ hVun V Laii -13 

( ). I ^baj 2 jjS Uj^i |j| Procedure ^ hVu« V laii -14 

® Alilt kAall - yl &JJS 








JajLuij (jLaj (jj3u» ^ujL dil ojltlllj jaIjV! O' 9 a (jfr SjLc <U|j]! -15 

( ). Value 4**L> *•*& Jj*jj Parameters 

Values O' l£*j O^*- 4 cjUukillj jaIjVI o* oe- Sjljfr -16 

( ). Parameters 4**'j *•*& Ai*jj 

U^xj <iilfI jaIj JIjj o^ 0^^' cja-Aw l^JI VB.NET ^ J& a^jj -17 

( ) . 4-uiiL 


juil Jj^L UjxIwm JjiaJI J^l -11 


Sub ShowOddOrEven (ByVal Start As Integer) 
Dirr. i As Integer 
Labell.Text = "" 

For i = Start To 10 Step 2 

Labell.Text = Labell.Text & " " & i 


Next 
End Sub 


..f**W Param 

^ jLuu AjjIjSjII ^ at-vtt ^ Si 



. cjjIkAil 

U 0^V1 ^ -2 f ija.V! (M-l -1 

-4 .4-ajilL )Ajj AjjIjSjJI A aWU _3 

0 «a f AJ Jj£il i^iHi f’lC'Jluil JuC- -5 


: JjSJb LLaiui* JaSI -12 

Function XXX (ByVal YYY As Integer, ByVal ZZZ As Integer) As Single 
Code 

Return RRR 
End Function 

.4JUI <y* jl! 4-«j£Jb u-alaJI oLJI -2 .AJUl ^-1-1 

.^ Parameters -3 

Aj|.Ail QA A*a|jJ| A AJ&1\ -4 



^jUfrin iiUn UaIi - ^jss 




















U J*2f 


. £aU jJI Jib i ..* 4_L» £ujj jj£ UjjI £)l£ b!.(jc- Uij -X 

.For ... Next >tft Jib Sjbji! Jau» a^ . f ±LL-u -2 

.Jaj^l bJlL j^22 Do While >«VI J* -3 

. 4jI$-S]| .^jI^I Oj^ jb^l For .. Next >»VI Ala*. ^ -4 

. <Aj|jA]| (jA JAti J^A Jj£ jljH]. * \A.-'; „-' 

.£>* ^hVi*«i) f lj^l ^ -6 

. <Ia)j12uj) aLa A aj&j Ajxj V.^j2Jl qa ftj^Vt -7 

Jj£il Aii22 jlj£2j JlA*Jl <Uu£ SjLJJ.jaVI > "j g 

jaIjVI fiAfe iili ^j-uVI iJA fl^ALuil AJ& (jj*A ^uil dlj ‘"'I 4 jLl1]|j ja)jVI a .-9 

.^ >.!jV! lib False W £*^2 Ua 2* Do While >*VI ^ -10 

. (j rtjuWi ^1 l^lAliwI Jjaj V. <ja <lilf IjaVI -11 

. Li\l& jjjj JlJxil £li Step 3-*^ ^2* ^ For.. Next ^4> ^ -12 

. Aj^l\ 4_Ajfl.4_j) Aji) 4 _ajA Cull LalUa For .. Next ^Iaa JlU jljUil jaauu -13 

. £lla <ja jjSI ^ Ajjbs jjSkul Jj£ UjA] 6* fl-ialuj| J*2aL -14 

.H ^ ^ J* -is 


£jli LaJiC- jaI jVl 


jljH] ^. iVmij For .... Next >-»VI -16 


. I 4 J <jJ 12 4^^222 U 2 lj tgJ 4-ojia (j rtj u rtVi (jlaj V.-17 

. Jj*-» laj^i UlL liiuw <>» tijjfca jjc jjc- Jj£ jljHJ. yH I _18 

. For .. Next ^ .j.JU*i«! -19 


^iiiljLaJI |oWl (x) <WUf ( ^ > 0^0 


( ) (True) For ... Next >»VI -1 

( ) isyte ^ For .. Next j*V! Jib SjUJII Jj*^» 0* -2 

( ) gSU 42 Function J'j-^' -3 

( ) ^aj^l2il 4jjbu> (-ijlail *i2 Jlj^II -4 

( ) (jrt^u/aVJI Ja^ ^ Jlj^l ^bVu.il ,j1aj -5 

( ) False-^j^t^-^^^j^^'jVt j'j^j j^-yDo While ... Loop j'j^t^'-6 
( ) L^l ^ ySli jaIijV) ^ (False) bj Do While ... Loop yrt\ ^^u-t ^ -7 

j!j£2 JS 4jIjj ^ ^ui2 ^ Do while ....loop >&! -8 
( ) 41*^ ^fljJa Sub cbblj^VI ^. iViun -9 

( ) l^jliiajj AUxIa A^ju Function Jij«^l Aaa«i 2 J^aL -10 

( ) 6^“j^ fj "buoil AjU^J -11 

( ) cjIjaII (>» jjc- (j\ AaZIj Sa^Ij Sja Procedure ^'j^VI O 6, 6^ -12 

( ) . Ual 0 ^ b) Do While ^ >*ljVI ^ ^ Do While...Loop >•! -13 

C ) ^ ^ ^ For ... Next -14 

^jucvi di 2 it iIah - j^»s& ^ a jis 


( ) 
( ) 
( ) 

( ) 


0 jIj&YI (11211 iIa! - j3j#«Sl ^J5S 























( ) . For ... Next t 4 Step -15 

( ) uij^» 4 ^ For X = 1 To 10 Step4 ^all ^ j-16 

( ) f Ij^V! Jib laSluijll <> Ale- tftJlluit 0^-17 

( ) lajLjij f Ij^VI 0^^' 6^ -18 

Function Area Lg-E^l ^ jA US (Single) ^ ( Area) 4M -19 

( ) . (ByVal radious As Single ) As Integer 

( ) JaSfl j ^Vu . ri J\ Procedures ulf Ij^Vl ^ -20 

( ) . 9 ^ o^J** Msgbox “3” & “X” “3” j-SM -21 

( ) . 0 jA (For m = 3 to 1 Step-1) *12 *u (M) W -22 


Q &\*Jl ^ &>» ^ j fth* m U £*0£ - 

Dim E as Short = 5 
Dim K as Short = 6 

1- Msgbox (E & "x M & K & "=" & E * K) 

2- Msgbox (E & "+" & K & "=" & E + E ) 

3- Msgbox ( E & & K & "=" & E - K ) 

: LJUI if* >&l£2| jljfii US 

1) For i = 1 to 10 Step 3 

2) Fori = 0 to 3 

3) For a = 20 to 4 Step -4 

4) For x = 2 to 9 Step 3 

. For ... Next jlj&hJI »l (jbs2I J£ J*£i 

E= (3,6 , 9 , 12 , 15 ) 

E = (2 ,3,4,5 ,6) 

E = (17 , 15 , 13 , 11 , 9 ) 

* 

: 4l*UI 




. jVt LiL AaUj U -2 

DimY , Z As Integer 
For Y = 1 to 8 Step3 
Z = Z + 2 
Next 

Msgbox (Y) 


: jjSil Liu gjU _i 

Dim A , R As Integer 
For A = 2 to 8 Step2 
R = R + 2 
Msgbox (A) 

Next 
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• AaiUIl ja \ jVI Aajjj La -4 


x JJ*^t 4_4 jS £*iaj -3 
: Labell Olj^l Sl-ii 


Dim D as integer = 1, R as integer 
For R = 12 to 5 Step -3 
0 = 0*2 
Next 


Dim i as integer 

For i = 10 To 1 Step-3 

Labell. Text = labell. Text & i 

Next 
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(j Jljfclfl (Hilt bii^lt - jSjjftSl! yl (j J1S 









: J!N\ Liu -2 

Dim R As Integer 
R = 3 

Do While R < = 7 
Msgbox (R) 

R = R + 2 
Loop 

jflL ^511 R 4uufl 


: 4jjVI >aIjVI £JJJ -1 
Dim N As Integer = 4 
Do While N < = 10 
N = N + 2 
Msgbox (N) 

Loop 

qja jflij N 


: ^Ui! Jjlil Lili ^iU _6 
Dim X as Short = 1 
Do While X < 10 
X = x * 2 
Loop 

MsgBox (X) 


: ^Ull Jjiil Liu £iU ^Laj _8 
Dim X as Short = 5 
Do While X > 10 W* 1 2 3 4 5 

X = x + 2 ^ 

Loop 

MsgBox (X) 



. tjUjll Liu £uU ^Laj -5 

Dim a =4 , total as integer 
Do While a <= 10 
a = a + 2 
Total = total + a 
-Message box (total) 
moop 


: ^Ull Jj£]| Liu ^uU ^uaj _7 

Dim X as Short = 10 
Do While X > 5 
X = X - 2 
Loop 

MsgBox (X) 


cuLuuuI A_uVI ujI jLiJl <_lujj J&l _10 

8 js 1 6* 

1- Loop 

2- Do While I < = 8 

3- Dim 1 = 1, Total As Integer 

4- MsgBox (Total) 

5- Total = total + i 
6 -1 = i+ 2 


: JN\ Liu Sum .9 

X =6 
Sum =0 

Do While x >10 
Sum = sum +x 
X= x +2 
Loop 




0 jijcvi di 2 it kii^n - jSjjftsn 0jis 









Dim i=l, total as integer 
Do While I <= 8 
Total = total + i 
I = i + 2 
Loop 

Msgbox (total) 

. For...Next <jb <jM^' Jja. 


X = 4.5 

For I = 0 to 7 Step3 

X = x * 2 

Next 

Do While JS >*VI Jj* 


For Z = 1 to 3 
Z = z + 1 
Next 
N = Z 


. N l_u£) 


(jdU U» JSlDo Wh 


Dim N , K , C As Integer 
C = 4 

For N = 2 To 15 Step 4 
K = K + N 
Next 

If N > C Then 

& c * 3 


C , N , K ^-1 
N > C -2 


Do Whi|j|Ji$ For ... Next 

11 3 <> 414**1 ^ -1 

. List Box Sbi Jib 33 3 6* jIjc-VI cfajp -2 

14 2 <> 4b*Vl -3 

6 ^ 22 6- 4b*VI -4 

30 J\ 9 <> 3 ^ J^2 Jb^VI -5 

. List Box Sbl Jib 20 ^ 2 6* jIjc-VI o^ajc- -6 

_ ^ ill i %■■ ^ ■ ..li 


Dim I as Integer 
For I = N to K Step X 
Msgbox (I) 

Next 


: <ujJI >okJI cl&ojoj^jo ih9j j3\ 

^VIJ^I 

.J 4 * 3 i -1 

.y3VI JS-3 N -2 

.y3VI J^*3 K-3 

.»JS-a x -4 


0 jijftin di2it kii^it - jSjjftsn jis 







Public Class Forml 

Function Rectangle (ByVal W as Single , ByVal jll\ 

L as Single) As Single f-1 

Dim A as Single lift kstmj _2 

A = W * L 4-ajaJI -3 

W = Text Boxl. Text 

L = Text Box2 . Text _ 4JUI ) 

Return A ( j]| 4^1 

End Function 

End Class I- 

Private sub Rectangle _btn Click (sender As Object, e As EventArgs ) Handles 
Rectangle _btn. Click rslt.Text = Rectangle (4,3) 

End Sub 

•sbVI J».ta jfrlaiui ^ Rectangle Rectangle _btn jjJ' ^ -1 

Rectangle . rs it 


Private Sub Buttonl _ Click (bYopA 
Sender As Object ~ 

Dim X as Single = Text Bd^^Text 
Dim Y as Single = Text Box2 . Text 
Labell. Text = Sum (X , Y) 

End Sub 


La J£ jilu»\ 
-1 

flflc-Jiu.1 jjS _2 
f Ilift JaiLuij -3 


Public Class Forml 

Sub Eyad (Byval R As Integer, 

Byval K As Integer) 

Dimi As Integer 

Labell. Text = “ “ 

Fori = R To K Step2 

Labell. Text = Labell. Text & “ “ & 
• 
i 

Next 
End Sub 
End Class 





is di2it kii^it - jSjjftSii (fja 
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31 LJojI cjllj 4 jjLiJjj Jj^al jjjj L V^ni <jlj 3 Jj£]| CIajjUjVI (j* til i^j 

JUojI 3I Ajj^ajj^akll cilLglijI jl ^j-jIloj ^j^alA, 3 l ^Ic* <jl Link (JL)Lq^I x^a ^ic. (Jj^a^J 

CjLujjjjii] U^Lg-^. j! A-IC>1 ^Sl^ a]| ^Ac* UA. uAi A3^)JJJ jl A '■ ^.-v >'..\i 

(jd£j£12l 

; JL^jVI .kA^j jjt 3k V (j-*akjui <3* AaxILq ^1 j^C. tiljLuo 3C* ajliC* 

( lA jjc*j 3I3ILVI3 Aj^lill - L_fljjiall - - Ajj\ 3^11 - ) 


: <jd<g>£J2l t£AA*ll Ub4A*i*M <j*JI 4«yj>£12l IttLl^JI £0 

Fomms cjUasiall-2 E-mail cAjj 1 ®'4o4'-1 

Bloging tPjJ&lVI ol 3' -4 Instant Message 4 jj3' J^-3' -3 

. Face Book V^V! jJI .5 


Anonymity -1 

4 uy>xi'. SjlxiubO £.LqjujI ^I>1^JjujI ^jC» S ) 1 jC. 

: Harassment cALLaaI) -2 

w . jKi ji *Ua 3^ (JjLoj^ 3 ^ S3IJC* 

: Cyber Stalking 3toUIi -3 

JajLui3II Ail£ ^9 3^*^ 3^*^ ^ AjL^^Loj 33^1^ J<<Lijj3j£JV! CljULLja^ail (JISjuoI 3* cJ^juo ^a 

: Flaming < jlajfcftn ( -^l jl <r^l -4 

. 3 ' jl 3^akjud AjJa aJ^ILlq j Cl)L<d£ 3JU1J 3^ S3IJC. 

: Outing -5 

£^juua (J^xln 3^1 3I 3^akj 3 3C* djLo3!*.^ 3JULJ 3c* $3!-^ 

: Exclusion eUjIu^I -6 

AajJ ajLui j J^li. jj^I jl «aAtjj JaI^I) <_jC. S^kc- 

: Cyber threats ^jj^M -7 

. 3 ' jt (J-^aiuudl 3 }C* j 31 ci>^J A-IJj3j£J| (^JjIjuJ3 (JLUJ3I S3IJO 

V udQj&tt | 

0±LuaJ V 333^ ^Lol£ -2 . 3^1 ^ol£j ^1^.1 til3LuaJ V -1 

<3^*Iill (JjLuj3 -4 . 4 x^aLk kljULlJ (3I 3 joiJ ^a^c. _3 

3 <1L^ ciulj (JjLuj 3 (JLUJ3I ^Jic. -6 . CI1J3IIJVI 3>i <2^ ci^3xj ^.1 aLILc ^jic. _5 

CIAJ3I1JVI ^I^JjujI Ak. tilljLjaJ IaJ 3-gV| ^3 -7 

^ 56 ^ . ^3 3 j j' L_a( ja^I 1—LSJ CluJjj^l (j* Jjll Jl jj] -8 



: Uaftil djLaJI |oUI < ■ > 6>LaJI joWI < V > <UUt &*a 


jj (jljxll! 4_uiajLujji! ^IAxIuAj A.axLa lil^iui jjC> SjLc- ijjj^lV! ^Axa!) - ] 

( ) . j' J* £b*l j' A 1 -^' 

( ) . ^LuxV! J--aljjil J±a 4-ujjjSJI LjU«j j!Ax <> ^jj ^jjjjSIV! ^AxjI! -2 

( ). <> j£* 4 LfijJ&W -3 

( ) • <^Axiit ^ * A^-y-.; „ aU Ajjjjj£iVI LLluijll ^Al <jA AjA^aIIj ijxlill -4 

( ) . J Aril! Jl^.1 <> jlJuVIj -5 

L)l (j^Ai J&\ JsULa Ax! ftA jjj j! ^LajxVI J^ljSl! £fll>A ^ o-axd <-jL*x 3$>ui -6 

( ) , ( j&\ A->-vSft J*^|jj!| JaiLuij jjC- lx! (jijxu 

cjli^lx!) jjjki! J'^j aax o^LLd! (jlc- cijrill a&Luu ^c-LuxVI J^ljlilt -7 

( ).AfUixVI 

<iL <j<alx!l ^jjjj&iV) AjjjII A ^* ■■ jj ja 4_a 1£ ^Jaj (jl JJaftj j^VI ^(AxluiVt ACtjii ^a LuLaj -3 

( ) . U jSa2 £±Lu J± 

( ) . ^LuxVl J^aljSlI JjL-j Ail£ ^ (jjx^ ^ yrLdi £jjj Lr !*J ^jjj^IVI *Lm«iVI -9 

( ) . jj£ 1 j! (j^iwl Jjfrj jl Jaxj <Lujja£1! (JjLuij JLuijI l£j j ^jjji!VI ASx^tail -JO 



AjjLx cifllj^» ; dillo!! JljMt!) 

f 1 jx! Jjlx jl fLua&Vl Ax! JujIj La 1£ ^C-lrixVI J^dlj^l ja Ax! ^ <j^lxdiV! Ax! &Ijldt -\ 

Ault Ajl! A& JaxV AjjjA AjJIx»a 

..Jl£L&! £ja j£«Ji djAx La jj"** j - 
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